﻿Public Class FTPFile
    Private mItems As List(Of FTPFileItem)
    Public ReadOnly Property FTPFiles As List(Of FTPFileItem)
        Get
            Return mItems
        End Get
    End Property
    Sub New()
        mItems = New List(Of FTPFileItem)
    End Sub
    Sub Add(Data As FTPFileItem)
        mItems.Add(Data)
    End Sub
    Public Class FTPFileItem
        Public Property FileDate As String
        Public Property FileTime As String
        Public Property FileSize As Integer
        Public Property FileName As String
        Public Property Match As Boolean
    End Class
End Class
